/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / mh-e / mh-seq.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 35 3a 31 | 31 20 31 39 39 35 0a 3b | 14:05:1|1 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 68 | 2d 65 2f 6d 68 2d 73 65 |/lisp/mh|-e/mh-se|
|00000090| 71 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |q.el.;;;| emacs v|
|000000a0| 65 72 73 69 6f 6e 20 31 | 39 2e 31 33 20 58 45 6d |ersion 1|9.13 XEm|
|000000b0| 61 63 73 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |acs Luci|d..;;; b|
|000000c0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000d0| 32 2e 32 35 3b 20 31 2d | 53 65 70 2d 39 34 2e 0a |2.25; 1-|Sep-94..|
|000000e0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000f0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|00000100| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000110| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000120| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000130| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000140| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000150| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000160| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000170| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000180| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000190| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|000001a0| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001b0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)).    (|error "T|
|000001c0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001d0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|000001e0| 31 39 2e 22 29 29 0a 0a | 28 62 79 74 65 2d 63 6f |19."))..|(byte-co|
|000001f0| 64 65 20 22 c0 c1 21 88 | c2 c3 21 88 c4 c5 21 ac |de "..!.|..!...!.|
|00000200| 82 c6 15 c4 c7 21 ac 83 | c6 16 07 c6 87 22 20 5b |.....!..|....." [|
|00000210| 70 72 6f 76 69 64 65 20 | 6d 68 2d 73 65 71 20 72 |provide |mh-seq r|
|00000220| 65 71 75 69 72 65 20 6d | 68 2d 65 20 62 6f 75 6e |equire m|h-e boun|
|00000230| 64 70 20 6d 68 2d 6c 61 | 73 74 2d 73 65 71 2d 75 |dp mh-la|st-seq-u|
|00000240| 73 65 64 20 6e 69 6c 20 | 6d 68 2d 6e 6f 6e 2d 73 |sed nil |mh-non-s|
|00000250| 65 71 2d 6d 6f 64 65 2d | 6c 69 6e 65 2d 61 6e 6e |eq-mode-|line-ann|
|00000260| 6f 74 61 74 69 6f 6e 5d | 20 32 29 0a 28 66 73 65 |otation]| 2).(fse|
|00000270| 74 20 27 6d 68 2d 64 65 | 6c 65 74 65 2d 73 65 71 |t 'mh-de|lete-seq|
|00000280| 20 23 5b 28 73 65 71 75 | 65 6e 63 65 29 20 22 c0 | #[(sequ|ence) ".|
|00000290| c1 5c 6e c3 0c 54 5c 6e | 25 88 c5 5c 6e c6 5c 22 |.\n..T\n|%..\n.\"|
|000002a0| 88 c7 5c 6e 21 87 22 20 | 5b 6d 68 2d 6d 61 70 2d |..\n!." |[mh-map-|
|000002b0| 74 6f 2d 73 65 71 2d 6d | 73 67 73 20 6d 68 2d 6e |to-seq-m|sgs mh-n|
|000002c0| 6f 74 61 74 65 2d 69 66 | 2d 69 6e 2d 6f 6e 65 2d |otate-if|-in-one-|
|000002d0| 73 65 71 20 73 65 71 75 | 65 6e 63 65 20 33 32 20 |seq sequ|ence 32 |
|000002e0| 6d 68 2d 63 6d 64 2d 6e | 6f 74 65 20 6d 68 2d 75 |mh-cmd-n|ote mh-u|
|000002f0| 6e 64 65 66 69 6e 65 2d | 73 65 71 75 65 6e 63 65 |ndefine-|sequence|
|00000300| 20 28 22 61 6c 6c 22 29 | 20 6d 68 2d 64 65 6c 65 | ("all")| mh-dele|
|00000310| 74 65 2d 73 65 71 2d 6c | 6f 63 61 6c 6c 79 5d 20 |te-seq-l|ocally] |
|00000320| 36 20 22 5c 0a 44 65 6c | 65 74 65 20 74 68 65 20 |6 "\.Del|ete the |
|00000330| 53 45 51 55 45 4e 43 45 | 2e 22 20 28 62 79 74 65 |SEQUENCE|." (byte|
|00000340| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 43 87 22 20 |-code ".|..\"C." |
|00000350| 5b 6d 68 2d 72 65 61 64 | 2d 73 65 71 2d 64 65 66 |[mh-read|-seq-def|
|00000360| 61 75 6c 74 20 22 44 65 | 6c 65 74 65 22 20 74 5d |ault "De|lete" t]|
|00000370| 20 33 29 5d 29 0a 28 66 | 73 65 74 20 27 6d 68 2d | 3)]).(f|set 'mh-|
|00000380| 6c 69 73 74 2d 73 65 71 | 75 65 6e 63 65 73 20 23 |list-seq|uences #|
|00000390| 5b 28 66 6f 6c 64 65 72 | 29 20 22 08 09 1a 89 1b |[(folder|) ".....|
|000003a0| 90 8a 0b 71 88 c4 20 88 | c5 c6 21 88 c7 0e 08 c9 |...q.. .|..!.....|
|000003b0| b1 03 88 5c 6e ab cf 5c | 6e 40 40 ca cb 5c 6e 40 |...\n..\|n@@..\n@|
|000003c0| 41 21 cc 5c 22 cd 20 ce | 5a cf 1e 10 1e 11 1e 12 |A!.\". .|Z.......|
|000003d0| 1e 13 d4 d5 0e 13 5c 22 | 89 16 10 63 88 0e 12 ab |......\"|...c....|
|000003e0| 9f 69 0e 11 56 ab 89 d6 | 63 88 d7 0e 10 47 21 88 |.i..V...|c....G!.|
|000003f0| d4 d8 0e 12 40 5c 22 63 | 88 0e 12 41 89 16 12 ac |....@\"c|...A....|
|00000400| 61 d6 63 88 2c 5c 6e 41 | 89 12 ac 31 65 62 88 c5 |a.c.,\nA|...1eb..|
|00000410| d9 21 29 91 2a 87 22 20 | 5b 6d 68 2d 74 65 6d 70 |.!).*." |[mh-temp|
|00000420| 2d 62 75 66 66 65 72 20 | 6d 68 2d 73 65 71 2d 6c |-buffer |mh-seq-l|
|00000430| 69 73 74 20 73 65 71 2d | 6c 69 73 74 20 74 65 6d |ist seq-|list tem|
|00000440| 70 2d 62 75 66 66 65 72 | 20 65 72 61 73 65 2d 62 |p-buffer| erase-b|
|00000450| 75 66 66 65 72 20 6d 65 | 73 73 61 67 65 20 22 4c |uffer me|ssage "L|
|00000460| 69 73 74 69 6e 67 20 73 | 65 71 75 65 6e 63 65 73 |isting s|equences|
|00000470| 20 2e 2e 2e 22 20 22 53 | 65 71 75 65 6e 63 65 73 | ..." "S|equences|
|00000480| 20 69 6e 20 66 6f 6c 64 | 65 72 20 22 20 66 6f 6c | in fold|er " fol|
|00000490| 64 65 72 20 22 3a 5c 6e | 22 20 73 6f 72 74 20 63 |der ":\n|" sort c|
|000004a0| 6f 70 79 2d 73 65 71 75 | 65 6e 63 65 20 3c 20 77 |opy-sequ|ence < w|
|000004b0| 69 6e 64 6f 77 2d 77 69 | 64 74 68 20 34 20 6e 69 |indow-wi|dth 4 ni|
|000004c0| 6c 20 6e 61 6d 65 2d 73 | 70 65 63 20 6c 61 73 74 |l name-s|pec last|
|000004d0| 2d 63 6f 6c 20 73 6f 72 | 74 65 64 2d 73 65 71 2d |-col sor|ted-seq-|
|000004e0| 6d 73 67 73 20 6e 61 6d | 65 20 66 6f 72 6d 61 74 |msgs nam|e format|
|000004f0| 20 22 25 32 30 73 3a 22 | 20 22 5c 6e 22 20 6d 6f | "%20s:"| "\n" mo|
|00000500| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 20 22 20 25 |ve-to-co|lumn " %|
|00000510| 73 22 20 22 4c 69 73 74 | 69 6e 67 20 73 65 71 75 |s" "List|ing sequ|
|00000520| 65 6e 63 65 73 2e 2e 2e | 64 6f 6e 65 22 5d 20 36 |ences...|done"] 6|
|00000530| 20 22 5c 0a 4c 69 73 74 | 20 74 68 65 20 73 65 71 | "\.List| the seq|
|00000540| 75 65 6e 63 65 73 20 64 | 65 66 69 6e 65 64 20 69 |uences d|efined i|
|00000550| 6e 20 46 4f 4c 44 45 52 | 2e 22 20 28 62 79 74 65 |n FOLDER|." (byte|
|00000560| 2d 63 6f 64 65 20 22 c0 | c1 5c 6e c3 23 43 87 22 |-code ".|.\n.#C."|
|00000570| 20 5b 6d 68 2d 70 72 6f | 6d 70 74 2d 66 6f 72 2d | [mh-pro|mpt-for-|
|00000580| 66 6f 6c 64 65 72 20 22 | 4c 69 73 74 20 73 65 71 |folder "|List seq|
|00000590| 75 65 6e 63 65 73 20 69 | 6e 22 20 6d 68 2d 63 75 |uences i|n" mh-cu|
|000005a0| 72 72 65 6e 74 2d 66 6f | 6c 64 65 72 20 74 5d 20 |rrent-fo|lder t] |
|000005b0| 34 29 5d 29 0a 28 66 73 | 65 74 20 27 6d 68 2d 6d |4)]).(fs|et 'mh-m|
|000005c0| 73 67 2d 69 73 2d 69 6e | 2d 73 65 71 20 23 5b 28 |sg-is-in|-seq #[(|
|000005d0| 6d 65 73 73 61 67 65 29 | 20 22 c0 c1 08 c2 c3 c4 |message)| "......|
|000005e0| c5 08 c6 5c 22 21 c7 23 | 23 87 22 20 5b 6d 65 73 |...\"!.#|#." [mes|
|000005f0| 73 61 67 65 20 22 4d 65 | 73 73 61 67 65 20 25 64 |sage "Me|ssage %d|
|00000600| 20 69 73 20 69 6e 20 73 | 65 71 75 65 6e 63 65 73 | is in s|equences|
|00000610| 3a 20 25 73 22 20 6d 61 | 70 63 6f 6e 63 61 74 20 |: %s" ma|pconcat |
|00000620| 63 6f 6e 63 61 74 20 6d | 68 2d 6c 69 73 74 2d 74 |concat m|h-list-t|
|00000630| 6f 2d 73 74 72 69 6e 67 | 20 6d 68 2d 73 65 71 2d |o-string| mh-seq-|
|00000640| 63 6f 6e 74 61 69 6e 69 | 6e 67 2d 6d 73 67 20 74 |containi|ng-msg t|
|00000650| 20 22 20 22 5d 20 39 20 | 22 5c 0a 44 69 73 70 6c | " "] 9 |"\.Displ|
|00000660| 61 79 20 74 68 65 20 73 | 65 71 75 65 6e 63 65 73 |ay the s|equences|
|00000670| 20 74 68 61 74 20 63 6f | 6e 74 61 69 6e 20 4d 45 | that co|ntain ME|
|00000680| 53 53 41 47 45 20 28 64 | 65 66 61 75 6c 74 3a 20 |SSAGE (d|efault: |
|00000690| 63 75 72 72 65 6e 74 20 | 6d 65 73 73 61 67 65 29 |current |message)|
|000006a0| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |." (byte|-code ".|
|000006b0| c1 21 43 87 22 20 5b 6d | 68 2d 67 65 74 2d 6d 73 |.!C." [m|h-get-ms|
|000006c0| 67 2d 6e 75 6d 20 74 5d | 20 32 29 5d 29 0a 28 66 |g-num t]| 2)]).(f|
|000006d0| 73 65 74 20 27 6d 68 2d | 6e 61 72 72 6f 77 2d 74 |set 'mh-|narrow-t|
|000006e0| 6f 2d 73 65 71 20 23 5b | 28 73 65 71 75 65 6e 63 |o-seq #[|(sequenc|
|000006f0| 65 29 20 22 c0 20 c1 89 | 1a 1b 1c c5 0e 06 21 ab |e) ". ..|......!.|
|00000700| af c7 20 88 64 1e 08 c9 | 0e 06 0e 08 5c 22 88 0e |.. .d...|....\"..|
|00000710| 08 64 7d 88 ca cb 21 88 | 0e 0c 16 0b cd 0e 06 21 |.d}...!.|.......!|
|00000720| 16 0c ce 20 88 cf c1 21 | 88 0e 06 89 16 10 29 aa |... ...!|......).|
|00000730| 87 d1 d2 cd 0e 06 21 5c | 22 d3 0c 21 88 2b 87 22 |......!\|"..!.+."|
|00000740| 20 5b 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 | [buffer|-modifie|
|00000750| 64 2d 70 20 6e 69 6c 20 | 62 75 66 66 65 72 2d 66 |d-p nil |buffer-f|
|00000760| 69 6c 65 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |ile-name| buffer-|
|00000770| 72 65 61 64 2d 6f 6e 6c | 79 20 6d 68 2d 66 6f 6c |read-onl|y mh-fol|
|00000780| 64 65 72 2d 75 70 64 61 | 74 69 6e 67 2d 6d 6f 64 |der-upda|ting-mod|
|00000790| 2d 66 6c 61 67 20 6d 68 | 2d 73 65 71 2d 74 6f 2d |-flag mh|-seq-to-|
|000007a0| 6d 73 67 73 20 73 65 71 | 75 65 6e 63 65 20 6d 68 |msgs seq|uence mh|
|000007b0| 2d 77 69 64 65 6e 20 65 | 6f 62 20 6d 68 2d 63 6f |-widen e|ob mh-co|
|000007c0| 70 79 2d 73 65 71 2d 74 | 6f 2d 70 6f 69 6e 74 20 |py-seq-t|o-point |
|000007d0| 6d 61 6b 65 2d 76 61 72 | 69 61 62 6c 65 2d 62 75 |make-var|iable-bu|
|000007e0| 66 66 65 72 2d 6c 6f 63 | 61 6c 20 6d 68 2d 6e 6f |ffer-loc|al mh-no|
|000007f0| 6e 2d 73 65 71 2d 6d 6f | 64 65 2d 6c 69 6e 65 2d |n-seq-mo|de-line-|
|00000800| 61 6e 6e 6f 74 61 74 69 | 6f 6e 20 6d 68 2d 6d 6f |annotati|on mh-mo|
|00000810| 64 65 2d 6c 69 6e 65 2d | 61 6e 6e 6f 74 61 74 69 |de-line-|annotati|
|00000820| 6f 6e 20 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 6d |on symbo|l-name m|
|00000830| 68 2d 6d 61 6b 65 2d 66 | 6f 6c 64 65 72 2d 6d 6f |h-make-f|older-mo|
|00000840| 64 65 2d 6c 69 6e 65 20 | 6d 68 2d 72 65 63 65 6e |de-line |mh-recen|
|00000850| 74 65 72 20 6d 68 2d 6e | 61 72 72 6f 77 65 64 2d |ter mh-n|arrowed-|
|00000860| 74 6f 2d 73 65 71 20 65 | 72 72 6f 72 20 22 4e 6f |to-seq e|rror "No|
|00000870| 20 6d 65 73 73 61 67 65 | 73 20 69 6e 20 73 65 71 | message|s in seq|
|00000880| 75 65 6e 63 65 20 60 25 | 73 27 22 20 6d 68 2d 73 |uence `%|s'" mh-s|
|00000890| 65 74 2d 66 6f 6c 64 65 | 72 2d 6d 6f 64 69 66 69 |et-folde|r-modifi|
|000008a0| 65 64 2d 70 5d 20 34 20 | 22 5c 0a 52 65 73 74 72 |ed-p] 4 |"\.Restr|
|000008b0| 69 63 74 20 64 69 73 70 | 6c 61 79 20 6f 66 20 74 |ict disp|lay of t|
|000008c0| 68 69 73 20 66 6f 6c 64 | 65 72 20 74 6f 20 6a 75 |his fold|er to ju|
|000008d0| 73 74 20 6d 65 73 73 61 | 67 65 73 20 69 6e 20 53 |st messa|ges in S|
|000008e0| 45 51 55 45 4e 43 45 2e | 0a 55 73 65 20 5c 5c 3c |EQUENCE.|.Use \\<|
|000008f0| 6d 68 2d 66 6f 6c 64 65 | 72 2d 6d 6f 64 65 2d 6d |mh-folde|r-mode-m|
|00000900| 61 70 3e 5c 5c 5b 6d 68 | 2d 77 69 64 65 6e 5d 20 |ap>\\[mh|-widen] |
|00000910| 74 6f 20 75 6e 64 6f 20 | 74 68 69 73 20 63 6f 6d |to undo |this com|
|00000920| 6d 61 6e 64 2e 22 20 28 | 62 79 74 65 2d 63 6f 64 |mand." (|byte-cod|
|00000930| 65 20 22 c0 c1 c2 5c 22 | 43 87 22 20 5b 6d 68 2d |e "...\"|C." [mh-|
|00000940| 72 65 61 64 2d 73 65 71 | 20 22 4e 61 72 72 6f 77 |read-seq| "Narrow|
|00000950| 20 74 6f 22 20 74 5d 20 | 33 29 5d 29 0a 28 66 73 | to" t] |3)]).(fs|
|00000960| 65 74 20 27 6d 68 2d 70 | 75 74 2d 6d 73 67 2d 69 |et 'mh-p|ut-msg-i|
|00000970| 6e 2d 73 65 71 20 23 5b | 28 6d 73 67 2d 6f 72 2d |n-seq #[|(msg-or-|
|00000980| 73 65 71 20 73 65 71 75 | 65 6e 63 65 29 20 22 c0 |seq sequ|ence) ".|
|00000990| 09 21 ac 82 09 12 c3 0c | a7 ab 83 0c aa 83 c5 0c |.!......|........|
|000009a0| 21 09 5c 22 87 22 20 5b | 6d 68 2d 69 6e 74 65 72 |!.\"." [|mh-inter|
|000009b0| 6e 61 6c 2d 73 65 71 20 | 73 65 71 75 65 6e 63 65 |nal-seq |sequence|
|000009c0| 20 6d 68 2d 6c 61 73 74 | 2d 73 65 71 2d 75 73 65 | mh-last|-seq-use|
|000009d0| 64 20 6d 68 2d 61 64 64 | 2d 6d 73 67 73 2d 74 6f |d mh-add|-msgs-to|
|000009e0| 2d 73 65 71 20 6d 73 67 | 2d 6f 72 2d 73 65 71 20 |-seq msg|-or-seq |
|000009f0| 6d 68 2d 73 65 71 2d 74 | 6f 2d 6d 73 67 73 5d 20 |mh-seq-t|o-msgs] |
|00000a00| 33 20 22 5c 0a 41 64 64 | 20 4d 45 53 53 41 47 45 |3 "\.Add| MESSAGE|
|00000a10| 28 73 29 20 28 64 65 66 | 61 75 6c 74 3a 20 64 69 |(s) (def|ault: di|
|00000a20| 73 70 6c 61 79 65 64 20 | 6d 65 73 73 61 67 65 29 |splayed |message)|
|00000a30| 20 74 6f 20 53 45 51 55 | 45 4e 43 45 2e 0a 49 66 | to SEQU|ENCE..If|
|00000a40| 20 6f 70 74 69 6f 6e 61 | 6c 20 70 72 65 66 69 78 | optiona|l prefix|
|00000a50| 20 61 72 67 75 6d 65 6e | 74 20 70 72 6f 76 69 64 | argumen|t provid|
|00000a60| 65 64 2c 20 74 68 65 6e | 20 70 72 6f 6d 70 74 20 |ed, then| prompt |
|00000a70| 66 6f 72 20 74 68 65 20 | 6d 65 73 73 61 67 65 20 |for the |message |
|00000a80| 73 65 71 75 65 6e 63 65 | 2e 22 20 28 62 79 74 65 |sequence|." (byte|
|00000a90| 2d 63 6f 64 65 20 22 08 | ab 86 c1 c2 c3 5c 22 aa |-code ".|.....\".|
|00000aa0| 83 c4 c3 21 c1 c5 c6 5c | 22 44 87 22 20 5b 63 75 |...!...\|"D." [cu|
|00000ab0| 72 72 65 6e 74 2d 70 72 | 65 66 69 78 2d 61 72 67 |rrent-pr|efix-arg|
|00000ac0| 20 6d 68 2d 72 65 61 64 | 2d 73 65 71 2d 64 65 66 | mh-read|-seq-def|
|00000ad0| 61 75 6c 74 20 22 41 64 | 64 20 6d 65 73 73 61 67 |ault "Ad|d messag|
|00000ae0| 65 73 20 66 72 6f 6d 22 | 20 74 20 6d 68 2d 67 65 |es from"| t mh-ge|
|00000af0| 74 2d 6d 73 67 2d 6e 75 | 6d 20 22 41 64 64 20 74 |t-msg-nu|m "Add t|
|00000b00| 6f 22 20 6e 69 6c 5d 20 | 34 29 5d 29 0a 28 66 73 |o" nil] |4)]).(fs|
|00000b10| 65 74 20 27 6d 68 2d 77 | 69 64 65 6e 20 23 5b 6e |et 'mh-w|iden #[n|
|00000b20| 69 6c 20 22 08 ab 99 c1 | 20 c2 89 1b 1c 1d 65 64 |il "....| .....ed|
|00000b30| 7c 88 7e 88 0e 06 16 07 | c8 20 88 c9 0d 21 88 2b ||.~.....|. ...!.+|
|00000b40| c2 89 10 87 22 20 5b 6d | 68 2d 6e 61 72 72 6f 77 |...." [m|h-narrow|
|00000b50| 65 64 2d 74 6f 2d 73 65 | 71 20 62 75 66 66 65 72 |ed-to-se|q buffer|
|00000b60| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 6e 69 6c 20 |-modifie|d-p nil |
|00000b70| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00000b80| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00000b90| 79 20 6d 68 2d 66 6f 6c | 64 65 72 2d 75 70 64 61 |y mh-fol|der-upda|
|00000ba0| 74 69 6e 67 2d 6d 6f 64 | 2d 66 6c 61 67 20 6d 68 |ting-mod|-flag mh|
|00000bb0| 2d 6e 6f 6e 2d 73 65 71 | 2d 6d 6f 64 65 2d 6c 69 |-non-seq|-mode-li|
|00000bc0| 6e 65 2d 61 6e 6e 6f 74 | 61 74 69 6f 6e 20 6d 68 |ne-annot|ation mh|
|00000bd0| 2d 6d 6f 64 65 2d 6c 69 | 6e 65 2d 61 6e 6e 6f 74 |-mode-li|ne-annot|
|00000be0| 61 74 69 6f 6e 20 6d 68 | 2d 6d 61 6b 65 2d 66 6f |ation mh|-make-fo|
|00000bf0| 6c 64 65 72 2d 6d 6f 64 | 65 2d 6c 69 6e 65 20 6d |lder-mod|e-line m|
|00000c00| 68 2d 73 65 74 2d 66 6f | 6c 64 65 72 2d 6d 6f 64 |h-set-fo|lder-mod|
|00000c10| 69 66 69 65 64 2d 70 5d | 20 33 20 22 5c 0a 52 65 |ified-p]| 3 "\.Re|
|00000c20| 6d 6f 76 65 20 72 65 73 | 74 72 69 63 74 69 6f 6e |move res|triction|
|00000c30| 73 20 66 72 6f 6d 20 63 | 75 72 72 65 6e 74 20 66 |s from c|urrent f|
|00000c40| 6f 6c 64 65 72 2c 20 74 | 68 65 72 65 62 79 20 73 |older, t|hereby s|
|00000c50| 68 6f 77 69 6e 67 20 61 | 6c 6c 20 6d 65 73 73 61 |howing a|ll messa|
|00000c60| 67 65 73 2e 22 20 6e 69 | 6c 5d 29 0a 28 62 79 74 |ges." ni|l]).(byt|
|00000c70| 65 2d 63 6f 64 65 20 22 | c0 c1 4d 88 c2 c3 4d 88 |e-code "|..M...M.|
|00000c80| c4 c5 4d 87 22 20 5b 6d | 68 2d 72 65 61 64 2d 73 |..M." [m|h-read-s|
|00000c90| 65 71 2d 64 65 66 61 75 | 6c 74 20 23 5b 28 70 72 |eq-defau|lt #[(pr|
|00000ca0| 6f 6d 70 74 20 6e 6f 74 | 2d 65 6d 70 74 79 29 20 |ompt not|-empty) |
|00000cb0| 22 c0 09 5c 6e 0b ae 8a | 0c ae 87 c5 c6 c7 21 c7 |"..\n...|......!.|
|00000cc0| 5c 22 40 23 87 22 20 5b | 6d 68 2d 72 65 61 64 2d |\"@#." [|mh-read-|
|00000cd0| 73 65 71 20 70 72 6f 6d | 70 74 20 6e 6f 74 2d 65 |seq prom|pt not-e|
|00000ce0| 6d 70 74 79 20 6d 68 2d | 6e 61 72 72 6f 77 65 64 |mpty mh-|narrowed|
|00000cf0| 2d 74 6f 2d 73 65 71 20 | 6d 68 2d 6c 61 73 74 2d |-to-seq |mh-last-|
|00000d00| 73 65 71 2d 75 73 65 64 | 20 6d 68 2d 73 65 71 2d |seq-used| mh-seq-|
|00000d10| 63 6f 6e 74 61 69 6e 69 | 6e 67 2d 6d 73 67 20 6d |containi|ng-msg m|
|00000d20| 68 2d 67 65 74 2d 6d 73 | 67 2d 6e 75 6d 20 6e 69 |h-get-ms|g-num ni|
|00000d30| 6c 5d 20 36 5d 20 6d 68 | 2d 72 65 61 64 2d 73 65 |l] 6] mh|-read-se|
|00000d40| 71 20 23 5b 28 70 72 6f | 6d 70 74 20 6e 6f 74 2d |q #[(pro|mpt not-|
|00000d50| 65 6d 70 74 79 20 26 6f | 70 74 69 6f 6e 61 6c 20 |empty &o|ptional |
|00000d60| 64 65 66 61 75 6c 74 29 | 20 22 c0 c1 c2 0b c4 0d |default)| "......|
|00000d70| ab 86 c1 c6 0d 5c 22 aa | 81 c7 24 c8 0e 09 21 5c |.....\".|..$...!\|
|00000d80| 22 89 1e 5c 6e cb 9a ab | 89 cc cd ce 21 cf 5c 22 |"..\n...|....!.\"|
|00000d90| 40 aa 8d 0e 5c 6e c7 9a | ab 83 0d aa 84 d0 0e 5c |@...\n..|.......\|
|00000da0| 6e 21 1e 11 d2 0e 11 21 | 89 1e 13 ac 8c 0e 14 ab |n!.....!|........|
|00000db0| 88 d5 c1 d6 0e 11 5c 22 | 21 88 0e 11 2b 87 22 20 |......\"|!...+." |
|00000dc0| 5b 63 6f 6d 70 6c 65 74 | 69 6e 67 2d 72 65 61 64 |[complet|ing-read|
|00000dd0| 20 66 6f 72 6d 61 74 20 | 22 25 73 20 25 73 20 25 | format |"%s %s %|
|00000de0| 73 22 20 70 72 6f 6d 70 | 74 20 22 73 65 71 75 65 |s" promp|t "seque|
|00000df0| 6e 63 65 3a 22 20 64 65 | 66 61 75 6c 74 20 22 5b |nce:" de|fault "[|
|00000e00| 25 73 5d 20 22 20 22 22 | 20 6d 68 2d 73 65 71 2d |%s] " ""| mh-seq-|
|00000e10| 6e 61 6d 65 73 20 6d 68 | 2d 73 65 71 2d 6c 69 73 |names mh|-seq-lis|
|00000e20| 74 20 69 6e 70 75 74 20 | 22 25 22 20 6d 68 2d 73 |t input |"%" mh-s|
|00000e30| 65 71 2d 63 6f 6e 74 61 | 69 6e 69 6e 67 2d 6d 73 |eq-conta|ining-ms|
|00000e40| 67 20 6d 68 2d 67 65 74 | 2d 6d 73 67 2d 6e 75 6d |g mh-get|-msg-num|
|00000e50| 20 74 20 6e 69 6c 20 69 | 6e 74 65 72 6e 20 73 65 | t nil i|ntern se|
|00000e60| 71 20 6d 68 2d 73 65 71 | 2d 74 6f 2d 6d 73 67 73 |q mh-seq|-to-msgs|
|00000e70| 20 6d 73 67 73 20 6e 6f | 74 2d 65 6d 70 74 79 20 | msgs no|t-empty |
|00000e80| 65 72 72 6f 72 20 22 4e | 6f 20 6d 65 73 73 61 67 |error "N|o messag|
|00000e90| 65 73 20 69 6e 20 73 65 | 71 75 65 6e 63 65 20 60 |es in se|quence `|
|00000ea0| 25 73 27 22 5d 20 39 5d | 20 6d 68 2d 73 65 71 2d |%s'"] 9]| mh-seq-|
|00000eb0| 6e 61 6d 65 73 20 23 5b | 28 73 65 71 2d 6c 69 73 |names #[|(seq-lis|
|00000ec0| 74 29 20 22 c0 c1 5c 6e | 5c 22 87 22 20 5b 6d 61 |t) "..\n|\"." [ma|
|00000ed0| 70 63 61 72 20 23 5b 28 | 65 6e 74 72 79 29 20 22 |pcar #[(|entry) "|
|00000ee0| c0 09 40 21 43 87 22 20 | 5b 73 79 6d 62 6f 6c 2d |..@!C." |[symbol-|
|00000ef0| 6e 61 6d 65 20 65 6e 74 | 72 79 5d 20 32 5d 20 73 |name ent|ry] 2] s|
|00000f00| 65 71 2d 6c 69 73 74 5d | 20 33 5d 5d 20 32 29 0a |eq-list]| 3]] 2).|
|00000f10| 28 66 73 65 74 20 27 6d | 68 2d 72 65 6e 61 6d 65 |(fset 'm|h-rename|
|00000f20| 2d 73 65 71 20 23 5b 28 | 73 65 71 75 65 6e 63 65 |-seq #[(|sequence|
|00000f30| 20 6e 65 77 2d 6e 61 6d | 65 29 20 22 c0 09 21 89 | new-nam|e) "..!.|
|00000f40| 1a ac 85 c3 c4 09 5c 22 | 88 c5 0e 06 5c 6e 41 5c |......\"|....\nA\|
|00000f50| 22 88 c7 09 5c 6e 41 5c | 22 88 5c 6e 0e 06 a0 29 |"...\nA\|".\n...)|
|00000f60| 87 22 20 5b 6d 68 2d 66 | 69 6e 64 2d 73 65 71 20 |." [mh-f|ind-seq |
|00000f70| 73 65 71 75 65 6e 63 65 | 20 6f 6c 64 2d 73 65 71 |sequence| old-seq|
|00000f80| 20 65 72 72 6f 72 20 22 | 53 65 71 75 65 6e 63 65 | error "|Sequence|
|00000f90| 20 25 73 20 64 6f 65 73 | 20 6e 6f 74 20 65 78 69 | %s does| not exi|
|00000fa0| 73 74 22 20 6d 68 2d 64 | 65 66 69 6e 65 2d 73 65 |st" mh-d|efine-se|
|00000fb0| 71 75 65 6e 63 65 20 6e | 65 77 2d 6e 61 6d 65 20 |quence n|ew-name |
|00000fc0| 6d 68 2d 75 6e 64 65 66 | 69 6e 65 2d 73 65 71 75 |mh-undef|ine-sequ|
|00000fd0| 65 6e 63 65 5d 20 34 20 | 22 5c 0a 52 65 6e 61 6d |ence] 4 |"\.Renam|
|00000fe0| 65 20 53 45 51 55 45 4e | 43 45 20 74 6f 20 68 61 |e SEQUEN|CE to ha|
|00000ff0| 76 65 20 4e 45 57 2d 4e | 41 4d 45 2e 22 20 28 62 |ve NEW-N|AME." (b|
|00001000| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 c3 |yte-code| "...\".|
|00001010| c4 c5 21 21 44 87 22 20 | 5b 6d 68 2d 72 65 61 64 |..!!D." |[mh-read|
|00001020| 2d 73 65 71 20 22 4f 6c | 64 22 20 74 20 69 6e 74 |-seq "Ol|d" t int|
|00001030| 65 72 6e 20 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |ern read|-string |
|00001040| 22 4e 65 77 20 73 65 71 | 75 65 6e 63 65 20 6e 61 |"New seq|uence na|
|00001050| 6d 65 3a 20 22 5d 20 34 | 29 5d 29 0a 28 62 79 74 |me: "] 4|)]).(byt|
|00001060| 65 2d 63 6f 64 65 20 22 | c0 c1 4d 88 c2 c3 4d 88 |e-code "|..M...M.|
|00001070| c4 c5 4d 88 c6 c7 4d 88 | c8 c9 4d 87 22 20 5b 6d |..M...M.|..M." [m|
|00001080| 68 2d 6d 61 70 2d 74 6f | 2d 73 65 71 2d 6d 73 67 |h-map-to|-seq-msg|
|00001090| 73 20 23 5b 28 66 75 6e | 63 20 73 65 71 20 26 72 |s #[(fun|c seq &r|
|000010a0| 65 73 74 20 61 72 67 73 | 29 20 22 8a c0 09 21 89 |est args|) "...!.|
|000010b0| 1a ad 98 c3 5c 6e 40 c4 | 89 23 ab 89 c5 0e 06 5c |....\n@.|.#.....\|
|000010c0| 6e 40 0e 07 23 88 5c 6e | 41 89 12 ac 69 c8 2a 87 |n@..#.\n|A...i.*.|
|000010d0| 22 20 5b 6d 68 2d 73 65 | 71 2d 74 6f 2d 6d 73 67 |" [mh-se|q-to-msg|
|000010e0| 73 20 73 65 71 20 6d 73 | 67 73 20 6d 68 2d 67 6f |s seq ms|gs mh-go|
|000010f0| 74 6f 2d 6d 73 67 20 74 | 20 61 70 70 6c 79 20 66 |to-msg t| apply f|
|00001100| 75 6e 63 20 61 72 67 73 | 20 6e 69 6c 5d 20 35 5d |unc args| nil] 5]|
|00001110| 20 6d 68 2d 6e 6f 74 61 | 74 65 2d 73 65 71 20 23 | mh-nota|te-seq #|
|00001120| 5b 28 73 65 71 20 6e 6f | 74 61 74 69 6f 6e 20 6f |[(seq no|tation o|
|00001130| 66 66 73 65 74 29 20 22 | c0 c1 5c 6e 0b 0c 24 87 |ffset) "|..\n..$.|
|00001140| 22 20 5b 6d 68 2d 6d 61 | 70 2d 74 6f 2d 73 65 71 |" [mh-ma|p-to-seq|
|00001150| 2d 6d 73 67 73 20 6d 68 | 2d 6e 6f 74 61 74 65 20 |-msgs mh|-notate |
|00001160| 73 65 71 20 6e 6f 74 61 | 74 69 6f 6e 20 6f 66 66 |seq nota|tion off|
|00001170| 73 65 74 5d 20 35 5d 20 | 6d 68 2d 61 64 64 2d 74 |set] 5] |mh-add-t|
|00001180| 6f 2d 73 65 71 75 65 6e | 63 65 20 23 5b 28 73 65 |o-sequen|ce #[(se|
|00001190| 71 20 6d 73 67 73 29 20 | 22 c0 09 21 3f ad 92 5c |q msgs) |"..!?..\|
|000011a0| 6e ad 8f c3 c4 c5 0e 06 | c7 c8 c9 09 21 ca 5c 6e |n.......|....!.\n|
|000011b0| 21 26 07 87 22 20 5b 6d | 68 2d 66 6f 6c 64 65 72 |!&.." [m|h-folder|
|000011c0| 2d 6e 61 6d 65 2d 70 20 | 73 65 71 20 6d 73 67 73 |-name-p |seq msgs|
|000011d0| 20 61 70 70 6c 79 20 6d | 68 2d 65 78 65 63 2d 63 | apply m|h-exec-c|
|000011e0| 6d 64 20 22 6d 61 72 6b | 22 20 6d 68 2d 63 75 72 |md "mark|" mh-cur|
|000011f0| 72 65 6e 74 2d 66 6f 6c | 64 65 72 20 22 2d 61 64 |rent-fol|der "-ad|
|00001200| 64 22 20 22 2d 73 65 71 | 75 65 6e 63 65 22 20 73 |d" "-seq|uence" s|
|00001210| 79 6d 62 6f 6c 2d 6e 61 | 6d 65 20 6d 68 2d 63 6f |ymbol-na|me mh-co|
|00001220| 61 6c 65 73 63 65 2d 6d | 73 67 2d 6c 69 73 74 5d |alesce-m|sg-list]|
|00001230| 20 39 5d 20 6d 68 2d 63 | 6f 70 79 2d 73 65 71 2d | 9] mh-c|opy-seq-|
|00001240| 74 6f 2d 70 6f 69 6e 74 | 20 23 5b 28 73 65 71 20 |to-point| #[(seq |
|00001250| 6c 6f 63 61 74 69 6f 6e | 29 20 22 c0 c1 5c 6e 0b |location|) "..\n.|
|00001260| 23 87 22 20 5b 6d 68 2d | 6d 61 70 2d 74 6f 2d 73 |#." [mh-|map-to-s|
|00001270| 65 71 2d 6d 73 67 73 20 | 6d 68 2d 63 6f 70 79 2d |eq-msgs |mh-copy-|
|00001280| 6c 69 6e 65 2d 74 6f 2d | 70 6f 69 6e 74 20 73 65 |line-to-|point se|
|00001290| 71 20 6c 6f 63 61 74 69 | 6f 6e 5d 20 34 5d 20 6d |q locati|on] 4] m|
|000012a0| 68 2d 63 6f 70 79 2d 6c | 69 6e 65 2d 74 6f 2d 70 |h-copy-l|ine-to-p|
|000012b0| 6f 69 6e 74 20 23 5b 28 | 6d 73 67 20 6c 6f 63 61 |oint #[(|msg loca|
|000012c0| 74 69 6f 6e 29 20 22 c0 | 79 88 8a 60 c1 1a 1b c4 |tion) ".|y..`....|
|000012d0| 79 88 60 12 0d 62 88 c6 | 70 0b 5c 6e 23 2b 87 22 |y.`..b..|p.\n#+."|
|000012e0| 20 5b 30 20 6e 69 6c 20 | 65 6e 64 20 62 65 67 69 | [0 nil |end begi|
|000012f0| 6e 6e 69 6e 67 2d 6f 66 | 2d 6c 69 6e 65 20 31 20 |nning-of|-line 1 |
|00001300| 6c 6f 63 61 74 69 6f 6e | 20 69 6e 73 65 72 74 2d |location| insert-|
|00001310| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00001320| 5d 20 34 5d 5d 20 32 29 | 0a                      |] 4]] 2)|.       |
+--------+-------------------------+-------------------------+--------+--------+